home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / 3d / 3dmap / 3dmap.bas next >
Encoding:
BASIC Source File  |  1994-10-19  |  6.2 KB  |  109 lines
  1. '===========================================================================
  2. '3DMAP 1.0
  3. 'Copyright (C) 1994 by Kerry B. Rogers
  4. 'All Rights Reserved
  5. '===========================================================================
  6. 'The main purpose of 3DMAP is to show one method for manipulating graphics
  7. 'offscreen while accomplishing the rare ability of having "buttons" onscreen
  8. 'that are not restricted to four sides. Although slow, speed is not really
  9. 'noticable on a 486-66 (the intended platform).
  10. '
  11. 'This type of screen is very useful for educational or demographic software
  12. '(besides the fact that it IS appealing to look at.) I hope you enjoy the
  13. 'source code and - PLEASE - drop me a line on CompuServe at:
  14. '
  15. '   Kerry Rogers 71514,735
  16. '
  17. '===========================================================================
  18. Option Explicit
  19. Declare Function ExtFloodFill% Lib "GDI" (ByVal hDC%, ByVal i%, ByVal i%, ByVal w&, ByVal i%)
  20. Declare Function GetPixel& Lib "GDI" (ByVal hDC%, ByVal X%, ByVal Y%)
  21. Declare Function BitBlt Lib "GDI" (ByVal hDestDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal dwRop&) As Integer
  22. Global gsStateName$()               'Storage array for all state names
  23. Global giaX%(), giaY%()             'Global Integer Array for static coords
  24. Global gbMassUpdate%                'Flag indicating need to abort List_Click
  25. Global giX%, giY%                   'Global Integer to pass mouseclick x/y
  26. Global Const DARK_GRAY = &H808080
  27. Global Const LITE_GRAY = &HC0C0C0
  28. Global Const SHOWN_MAP = 0          'Used to swap Shown map
  29. Global Const HIDDEN_MAP = 1         'Used to swap Hidden map
  30. Global Const BACKUP_MAP = 2         'Used to swap Backup map
  31.  
  32. Sub Main ()
  33. '===========================================================================
  34. '3DMAP 1.0
  35. 'Copyright (C) 1994 by Kerry B. Rogers
  36. 'All Rights Reserved
  37. '===========================================================================
  38. 'The map names and the coordinates for the pixel that is checked when
  39. 'determining a painted area are defined below.
  40. '===========================================================================
  41.     Dim i%
  42.     Screen.MousePointer = 11            'Hourglass
  43.     ReDim gsStateName(0 To 60), giaX(0 To 60), giaY(0 To 60)
  44.     gsStateName(0) = "Alabama": giaX(0) = 362: giaY(0) = 201
  45.     gsStateName(1) = "Alaska": giaX(1) = 79: giaY(1) = 247
  46.     gsStateName(2) = "Arizona": giaX(2) = 118: giaY(2) = 181
  47.     gsStateName(3) = "Arkansas": giaX(3) = 304: giaY(3) = 187
  48.     gsStateName(4) = "California": giaX(4) = 45: giaY(4) = 142
  49.     gsStateName(5) = "Colorado": giaX(5) = 179: giaY(5) = 139
  50.     gsStateName(6) = "Connecticut": giaX(6) = 468: giaY(6) = 83
  51.     gsStateName(7) = "D.C. (Washington)": giaX(7) = 484: giaY(7) = 143
  52.     gsStateName(8) = "Delaware": giaX(8) = 454: giaY(8) = 119
  53.     gsStateName(9) = "Florida": giaX(9) = 425: giaY(9) = 247
  54.     gsStateName(10) = "Georgia": giaX(10) = 393: giaY(10) = 195
  55.     gsStateName(11) = "Hawaii": giaX(11) = 146: giaY(11) = 280
  56.     gsStateName(12) = "Idaho": giaX(12) = 105: giaY(12) = 74
  57.     gsStateName(13) = "Illinois": giaX(13) = 328: giaY(13) = 124
  58.     gsStateName(14) = "Indiana": giaX(14) = 355: giaY(14) = 123
  59.     gsStateName(15) = "Iowa": giaX(15) = 289: giaY(15) = 105
  60.     gsStateName(16) = "Kansas": giaX(16) = 245: giaY(16) = 145
  61.     gsStateName(17) = "Kentucky": giaX(17) = 375: giaY(17) = 149
  62.     gsStateName(18) = "Louisiana": giaX(18) = 306: giaY(18) = 224
  63.     gsStateName(19) = "Maine": giaX(19) = 485: giaY(19) = 36
  64.     gsStateName(20) = "Maryland": giaX(20) = 438: giaY(20) = 119
  65.     gsStateName(21) = "Massachusettes": giaX(21) = 468: giaY(21) = 76
  66.     gsStateName(22) = "Michigan": giaX(22) = 361: giaY(22) = 86
  67.     gsStateName(23) = "Minnesota": giaX(23) = 276: giaY(23) = 60
  68.     gsStateName(24) = "Mississippi": giaX(24) = 334: giaY(24) = 207
  69.     gsStateName(25) = "Missouri": giaX(25) = 299: giaY(25) = 145
  70.     gsStateName(26) = "Montana": giaX(26) = 155: giaY(26) = 48
  71.     gsStateName(27) = "Nebraska": giaX(27) = 235: giaY(27) = 114
  72.     gsStateName(28) = "Nevada": giaX(28) = 78: giaY(28) = 125
  73.     gsStateName(29) = "New Hampshire": giaX(29) = 472: giaY(29) = 63
  74.     gsStateName(30) = "New Jersey": giaX(30) = 457: giaY(30) = 109
  75.     gsStateName(31) = "New Mexico": giaX(31) = 171: giaY(31) = 190
  76.     gsStateName(32) = "New York": giaX(32) = 447: giaY(32) = 73
  77.     gsStateName(33) = "North Carolina": giaX(33) = 431: giaY(33) = 161
  78.     gsStateName(34) = "North Dakota": giaX(34) = 228: giaY(34) = 47
  79.     gsStateName(35) = "Ohio": giaX(35) = 384: giaY(35) = 116
  80.     gsStateName(36) = "Oklahoma": giaX(36) = 255: giaY(36) = 181
  81.     gsStateName(37) = "Oregon": giaX(37) = 58: giaY(37) = 68
  82.     gsStateName(38) = "Pensylvania": giaX(38) = 427: giaY(38) = 101
  83.     gsStateName(39) = "Rhode Island": giaX(39) = 478: giaY(39) = 80
  84.     gsStateName(40) = "South Carolina": giaX(40) = 417: giaY(40) = 182
  85.     gsStateName(41) = "South Dakota": giaX(41) = 229: giaY(41) = 80
  86.     gsStateName(42) = "Tennessee": giaX(42) = 364: giaY(42) = 170
  87.     gsStateName(43) = "Texas": giaX(43) = 240: giaY(43) = 227
  88.     gsStateName(44) = "Utah": giaX(44) = 125: giaY(44) = 131
  89.     gsStateName(45) = "Vermont": giaX(45) = 462: giaY(45) = 57
  90.     gsStateName(46) = "Virginia": giaX(46) = 430: giaY(46) = 139
  91.     gsStateName(47) = "Washington": giaX(47) = 72: giaY(47) = 32
  92.     gsStateName(48) = "West Virginia": giaX(48) = 407: giaY(48) = 134
  93.     gsStateName(49) = "Wisconsin": giaX(49) = 319: giaY(49) = 78
  94.     gsStateName(50) = "Wyoming": giaX(50) = 166: giaY(50) = 94
  95.     gsStateName(51) = "Alaska": giaX(51) = 47: giaY(51) = 272
  96.     gsStateName(52) = "Alaska": giaX(52) = 40: giaY(52) = 273
  97.     gsStateName(53) = "Alaska": giaX(53) = 35: giaY(53) = 270
  98.     gsStateName(54) = "Alaska": giaX(54) = 29: giaY(54) = 268
  99.     gsStateName(55) = "D.C. (Washington)": giaX(55) = 479: giaY(55) = 146
  100.     gsStateName(56) = "Hawaii": giaX(56) = 139: giaY(56) = 274
  101.     gsStateName(57) = "Hawaii": giaX(57) = 132: giaY(57) = 270
  102.     gsStateName(58) = "Hawaii": giaX(58) = 124: giaY(58) = 266
  103.     gsStateName(59) = "Hawaii": giaX(59) = 115: giaY(59) = 268
  104.     gsStateName(60) = "Michigan": giaX(60) = 339: giaY(60) = 59
  105.     frmMapMain.Show
  106.     Screen.MousePointer = 0                 'Normal
  107. End Sub
  108.  
  109.